0dIa(9):fOi=0to9:rEa(i):nE:fOy=0to18:?:k=y:ifk>9tHk=18-y
1m=a(k):p=512:fOi=9to1step-1:ifint(m/p)-2*int(m/(2*p))tH?tab(20-i);"*";
2p=p/2:nE:ifm-2*int(m/2)tH?tab(20);"*";
3n=int(m/2):fOi=1to9:t=n:n=int(n/2):ift<>n*2tH?tab(20+i);"*";
4nE:nE:dA1,5,163,97,229,19,9,293,147,1023